Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/card_5312.txt

Text File | 1990-04-17 | 19KB | 833 lines

-- card: 5312 from stack: in
-- bmap block id: 8505
-- flags: 0000
-- background id: 18894
-- name: MacCloseUp
----- HyperTalk script -----
on openCard
  global holder,env,sol
  put empty into card field "Explainer"
  put empty into card field "Choice"
  put empty into card field "Category"
  put empty into card field "Reads"
  put empty into card field "Writes"
  put empty into cd fld "Network"
  put "Macintosh Configuration Screen" into fld "Tell"
  put sol into cd fld "sol"
  hide cd btn "solChoiceHilite"
  hide cd btn "envChoiceHilite"
  hide cd btn "solListHiliter"
  hide cd btn "envListHiliter"
  hide cd fld "solList"
  hide cd fld "envList"
  if env is "Mac" then
    put "Macintosh" into cd fld "env"
  else
    put env into cd fld "env"
  end if
  --engine begin
  put card field (env && sol) of card "Mac Grid" into holder
  if holder is empty
  then
  put "Solutions for " & env && sol && "are not included in this release." into card fld "Explainer"
  exit openCard
end if
repeat with i = 1 to the number of lines of holder
  if item 1 of line i of holder <> empty then
    put item 1 of line i of holder & return after card field "Explainer"
  end if
end repeat
end openCard

on mouseUp
  --beep 1
  --put "This needs to keep track of which level you came from, JONATHAN."
  --•using the level buttons seems the best way, offhand, that way
  --•the hilited button is the structure.  JON
  set lockscreen to true
  --send mouseUp to cd btn id 20
  unlock screen with dissolve
end mouseUp

on closeCard
  put empty into fld "Tell"
  set hilite of cd btn id 20 to false
  set hilite of cd btn id 19 to false
  set scroll of cd fld "Explainer" to zero
  --∆ hide pull down menus
  hide cd btn "explainerHiliter"
  hide cd fld "envList"
  hide cd fld "solList"
end closeCard

on extractMac
  global sol,env,holder
  --environments,envnum,solutions,solnum,holder
  get card field (env && sol) of card "Mac Grid"
  put empty into holder
  repeat with i = 1 to the number of lines of it
    if item 1 of line i of it <> empty then
      put line i of it & return after holder
    end if
  end repeat
end extractMac

on extractHost
  global sol,env,holder
  get card field (env && sol) of card "Mac Grid"
  put empty into holder
  repeat with i = 1 to the number of lines of it
    if item 2 of line i of it <> empty then
      put line i of it & return after holder
    end if
  end repeat
end extractHost


-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=303 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: screen Button


-- part 2 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=170 top=63 right=149 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Explainer
----- HyperTalk script -----
on mouseUp
  global holder,prodname,Reads,Writes,Network,tidyUpNow,tidyUpSome
  set hilite of btn id 20 to false
  set hilite of btn id 19 to false
  put empty into cd fld "Reads"
  put empty into cd fld "Writes"
  put empty into cd fld "Network"
  put selectionAndHiliter() into cardline
  put line cardline of me into prodname
  if prodname contains "No Solutions" then
    put empty into prodname
    exit mouseUp
  end if
  if prodname is empty then
    answer "Empty Choice!" with "Try Again"
    exit mouseup
  end if
  --∆ Downgrade cleanup if they chose a product after changing the env.
  if tidyUpNow is true then
    put false into tidyUpNow
    put true into tidyUpSome
  end if
  put prodname into cd fld "choice"
  set lockscreen to true
  set cursor to busy
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname then
      put item 3 of line i of holder into cd fld "Category"
      parseR
      put Reads after cd field "Reads"
      parseW
      put Writes after cd field "Writes"
      parseN
      put Network after cd field "Network"
      exit repeat
    end if
  end repeat
  if Reads is empty then put "N/A" into cd field "Reads"
  if Writes is empty then put "N/A" into cd field "Writes"
  if Network is empty then put "N/A" into cd field "Network"
  if cd fld "Category" is empty then put "N/A" into cd field "Category"
  unlock screen with dissolve fast
end mouseUP

on mouseEnter
  put "Products Field" & return & "click to select a product" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 5 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=84 top=165 right=185 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Choice
----- HyperTalk script -----
on mouseUp
  get me
  if it is empty
  then
  put "Please choose a product!" into fld "Tell"
  exit mouseUp
else
  put char 1 to 26 of it into prod
  set cursor to busy
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp

on mouseEnter
  put "Product Chosen Field" & return & "click for more info" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=89 top=60 right=143 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: headerX


-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=170 top=49 right=63 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: env


-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=237 top=49 right=63 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: sol


-- part 12 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=275 top=165 right=185 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Category
----- HyperTalk script -----
on mouseEnter
  put "Category Field" & return & "" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 14 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=86 top=48 right=152 bottom=164
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: envList
----- HyperTalk script -----
on mouseUp
  global env,theRoom,prodname,prodname2,prodname3,tidyUpNow
  --∆ select and highlight line
  put SelectionAndHiliter() into lineNumber
  --∆ Get the line and test
  get line lineNumber of me
  if it is "Macintosh" then put "Mac" into it
  --∆ test for empty selection
  if it is empty then
    play cymbal
    answer "Click directly on your choice" with "Try again!"
    exit mouseUp
    hide me
  end if
  --∆ clear product data fields for new environment
  put empty into cd fld "Reads"
  put empty into cd fld "Writes"
  put empty into cd fld "Network"
  put empty into cd fld "Choice"
  put empty into cd fld "Category"
  --∆ test for a change in environments to avoid inconsistencies when
  --∆ returning to the room later.
  set lockScreen to true
  set cursor to busy
  put env into startingEnv
  put it into env
  if env <> startingEnv then
    --∆ Track environment change
    put true into tidyUpNow
    put empty into prodname
    put empty into prodname2
    put empty into prodname3
  end if
  --∆ set room name suffix to return to correct room
  put "" into roomSuffix
  if env is "PC" then
    put "Micro" into roomSuffix
  end if
  if env is "Mac" then
    put "Mac" into roomSuffix
  end if
  put ("Room" & roomSuffix) into theRoom
  --∆ get the correct list for the solution menu
  get cd fld (env & "Sol") of card "Limit"
  --∆ eliminate following two options from the list, they are not
  --∆ appropriate here.
  if last line of it is "Hardware" then
    delete last line of it
  end if
  if last line of it is "Network Services" then
    delete last line of it
  end if
  --∆ put the correct(ed) list into the solution menu
  put it into cd fld "SolList"
  --∆ hide menu elements and return to card showing new selections
  hide me
  hide cd btn "envChoiceHilite"
  hide cd btn "envListHiliter"
  unlock screen
  send openCard to this card
end mouseUp

on mouseEnter
  put "Environments Field" & return & "click to choose" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 19 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=93 top=266 right=283 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 132
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Get Vendor Info
----- HyperTalk script -----
on mouseUp
  if cd field "Choice" is empty
  then
  put "Please Select a Product!" into fld "Tell"
  exit mouseUp
else
  send mouseUp to cd fld "Choice"
end if
end mouseUp

on mouseEnter
  put "Go to Products Button" & return & "goes to the product card" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changecurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 20 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=272 top=266 right=283 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 132
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Go Back to Room
----- HyperTalk script -----
on mouseUp
  global theRoom
  set lockscreen to true
  set cursor to busy
  go to cd theRoom
  unlock screen with dissolve
end mouseUp

on mouseEnter
  global env
  changeCurs 6069
  if env is "Mac" then
    put "Return to Room Button" & return & "goes to the Macintosh Room" into fld "Tell"
  else
    put "Return to Room Button" & return & "goes to the" && env && "Room" into fld "Tell"
  end if
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown



-- part 22 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=89 top=217 right=267 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Reads
----- HyperTalk script -----
on mouseEnter
  put "the file types this" & return & "application can open" into fld "Tell"
end mouseEnter
on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 24 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=197 top=217 right=267 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Writes
----- HyperTalk script -----
on mouseEnter
  put "the file types the" & return & "application can save" into fld "Tell"
end mouseEnter
on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 25 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=280 top=217 right=266 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Network
----- HyperTalk script -----
on mouseEnter
  put "network communication method" into fld "Tell"
end mouseEnter
on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 31 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=86 top=36 right=49 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: envChoices
----- HyperTalk script -----
on mouseUp
  show cd btn "envChoiceHilite"
  set the visible of cd field "envList" to not the visible of cd field "EnvList"
end mouseUp

on mouseEnter
  put "Change Environment Menu" & return & "click to show a list" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 32 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=174 top=36 right=50 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: solChoices
----- HyperTalk script -----
on mouseUp
  show cd btn "solChoiceHilite"
  set the visible of cd field "solList" to not the visible of cd field "solList"
end mouseUp

on mouseEnter
  put "Change Solution Menu" & return & "click to show a list" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 33 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=86 top=36 right=48 bottom=164
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: envChoiceHilite


-- part 34 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=174 top=36 right=48 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: solChoiceHilite


-- part 36 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=87 top=85 right=97 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: envListHiliter


-- part 37 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=70 top=13 right=28 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: boneHarp
----- HyperTalk script -----
on mouseUp
  play boneharp
end mouseUp



-- part 40 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=12 top=0 right=30 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name: FloorName


-- part 41 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=171 top=120 right=134 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: explainerHiliter


-- part 15 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=174 top=48 right=160 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: solList
----- HyperTalk script -----
on mouseUp
  global sol
  --∆ select and highlight line
  put SelectionAndHiliter() into lineNumber
  --∆ Convert line number to the contents of the line
  do "put line " & lineNumber & " of " & name of me & " into name"
  --∆ test for empty selection
  if name is "" then
    play cymbal
    answer "Click directly on your choice" with "Try again!"
    exit mouseUp
  end if
  --∆ now hide menu and place new selection in card
  set lockScreen to true
  set cursor to busy
  put empty into cd fld "Reads"
  put empty into cd fld "Writes"
  put empty into cd fld "Network"
  put empty into cd fld "Choice"
  put empty into cd fld "Category"
  hide me
  hide cd btn "solChoiceHilite"
  hide cd btn "solListHiliter"
  put name into sol
  unlock screen
  send openCard to this card
end mouseUp

on mouseEnter
  put "Solutions Field" & return & "click to choose" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 35 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=175 top=73 right=85 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: solListHiliter


-- part contents for card part 7
----- text -----
Click on a product at right for more information:

-- part contents for card part 14
----- text -----
Digital
IBM
Macintosh
PC
Tandem
UNIX
Wang

-- part contents for card part 10
----- text -----
Digital

-- part contents for card part 11
----- text -----
Office Productivity

-- part contents for card part 31
----- text -----
Environments

-- part contents for card part 32
----- text -----
Solution Areas

-- part contents for card part 40
----- text -----
Macintosh Screen

-- part contents for card part 15
----- text -----
Communications
Engineering/CAD
Info Management
Office Productivity
Publishing
Software Development


-- part contents for card part 2
----- text -----
Full Impact
FullWrite Professional
INSIGHT
MacWrite II
Microsoft Excel 2.2
Microsoft Word/Macintosh
Wingz
WordPerfect for the Macintosh 1.0.4:


-- part contents for card part 5
----- text -----
Microsoft Excel 2.2

-- part contents for card part 12
----- text -----
Spreadsheet

-- part contents for card part 22
----- text -----
ASCII
dBase Mac
dBase PC
DIF
SYLK
WK1
WKS


-- part contents for card part 24
----- text -----
ASCII
dBase Mac
dBase PC
DIF
SYLK
WK1
WKS


-- part contents for card part 25
----- text -----
Data Access Language
File Transfer